home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / CIRCFEED.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  2.3 KB  |  87 lines
  1. 10  'CIRCFEED - Circular Waveguide Dish Feeds - 18 OCT 96 rev.
  2. 20  'Ref. The ARRL Antenna Book, 17th Edition, page 18-14
  3. 30  IF EX$=""THEN EX$="EXIT"
  4. 40  CLS:KEY OFF
  5. 50  COLOR 7,0,1
  6. 60  UL$=STRING$(80,205)
  7. 70  U$="###,###"
  8. 80  V$="###.##"
  9. 90  '
  10. 100  COLOR 15,2
  11. 110  PRINT " CIRCULAR WAVEGUIDE DISH FEEDS";TAB(57);"by George Murphy VE3ERP ";
  12. 120  COLOR 1,0:PRINT STRING$(80,223);
  13. 130  COLOR 7,0
  14. 140  '
  15. 150  '.....start
  16. 160  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  17. 170  GOSUB 620    'preface
  18. 180  PRINT UL$;
  19. 190  COLOR 0,7:LOCATE ,23
  20. 200  PRINT " Press 1 to continue or 0 to EXIT..."
  21. 210  COLOR 7,0
  22. 220  Z$=INKEY$:IF Z$=""THEN 220
  23. 230  IF Z$="0"THEN CLS:RUN EX$
  24. 240  IF Z$="1"THEN 260
  25. 250  GOTO 220
  26. 260  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  27. 270  '
  28. 280  '.....input data
  29. 290  INPUT " ENTER: Operating Frequency in MHz";FO
  30. 300  WO=300/FO   'operating wavelength
  31. 310  LOCATE CSRLIN-1
  32. 320  PRINT " Operating Frequency =";USING U$;FO;
  33. 330  PRINT " MHz (";USING "###.##";WO*100;:PRINT " cm.)"
  34. 340  PRINT UL$;
  35. 350  PRINT TAB(2)"VARPTRSOUNDInside DiameterSOUNDCOLOR";TAB(27)"Cutoff";TAB(44)"Cutoff";
  36. 360  PRINT TAB(65);"Waveguide"
  37. 370  PRINT TAB(3)"LLIST  /  cm.  / inch";TAB(27)"TE11 MODE";TAB(44)"TM01 MODE";
  38. 380  PRINT TAB(65);"Length"
  39. 390  PRINT UL$;
  40. 400  FOR LA=65 TO 77  '% of wavelength
  41. 410  D=LA/100*WO*10^3/25.4    'I.D. of waveguide in inches
  42. 420  TE=6917.26/D       'Fc(TE11)
  43. 430  TM=9034.85/D      'Fc(TM01)
  44. 440  GW=11802.8/SQR(FO^2-TE^2) 'guide wavelength
  45. 450  IF LA=70 THEN COLOR 0,7 ELSE COLOR 7,0
  46. 460  PRINT USING " ##%";LA;
  47. 470  PRINT " /";USING V$;D;
  48. 480  PRINT " /";USING V$;D*2.54;
  49. 490  PRINT TAB(25);USING U$;TE;:PRINT " MHz";
  50. 500  PRINT TAB(42);USING U$;TM;:PRINT " MHz";
  51. 510  PRINT TAB(60)USING V$;D*2.54;:PRINT " cm /";
  52. 520  PRINT USING V$;GW;:PRINT CHR$(34);" "
  53. 530  IF LA=70 THEN LOCATE CSRLIN-1:COLOR 0,7:PRINT "*":COLOR 7,0
  54. 540  NEXT LA
  55. 550  PRINT
  56. 560  PRINT " LLIST = diameter expressed in percentage of 1 wavelength."
  57. 570  COLOR 0,7:PRINT "* provides nearly optimum illumination ":COLOR 7,0
  58. 580  GOSUB 740
  59. 590  GOTO 150
  60. 600  END
  61. 610  '
  62. 620  '.....preface
  63. 630  T=7
  64. 640  PRINT TAB(T);
  65. 650  PRINT "This program computes diameters and lengths of circular waveguide"
  66. 660  PRINT TAB(T);
  67. 670  PRINT "feeds for parabolic dish antennas in the frequency range of"
  68. 680  PRINT TAB(T);
  69. 690  PRINT "902 to 10,000 MHz, from equations presented in The ARRL ANTENNA"
  70. 700  PRINT TAB(T);
  71. 710  PRINT "BOOK, 17th edition, page 18-14."
  72. 720  RETURN
  73. 730  '
  74. 740  'HARDCOPY
  75. 750  GOSUB 860:LOCATE 25,2:COLOR 14,6
  76. 760  PRINT " Press 1 to print screen, 2 to print screen & ";
  77. 770  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  78. 780  Z$=INKEY$:IF Z$="3"THEN GOSUB 860:RETURN
  79. 790  IF Z$="1"OR Z$="2"THEN GOSUB 860:GOTO 810
  80. 800  GOTO 780
  81. 810  FOR QX=1 TO 24:FOR QY=1 TO 80
  82. 820  LPRINT CHR$(SCREEN(QX,QY));
  83. 830  NEXT QY:NEXT QX
  84. 840  IF Z$="2"THEN LPRINT CHR$(12)
  85. 850  GOTO 750
  86. 860  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  87.